home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / internet / vbipsmtp / echoudp.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-11-03  |  15.2 KB  |  448 lines
  1. VERSION 4.00
  2. Begin VB.Form frmMain 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "UDP Echo Sample Application"
  5.    ClientHeight    =   5820
  6.    ClientLeft      =   4620
  7.    ClientTop       =   2565
  8.    ClientWidth     =   4545
  9.    BeginProperty Font 
  10.       name            =   "Arial"
  11.       charset         =   0
  12.       weight          =   700
  13.       size            =   8.25
  14.       underline       =   0   'False
  15.       italic          =   0   'False
  16.       strikethrough   =   0   'False
  17.    EndProperty
  18.    ForeColor       =   &H80000008&
  19.    Height          =   6225
  20.    Icon            =   "EchoUDP.frx":0000
  21.    Left            =   4560
  22.    LinkTopic       =   "Form1"
  23.    MaxButton       =   0   'False
  24.    ScaleHeight     =   5820
  25.    ScaleWidth      =   4545
  26.    Top             =   2220
  27.    Width           =   4665
  28.    Begin VB.PictureBox Picture1 
  29.       BorderStyle     =   0  'None
  30.       BeginProperty Font 
  31.          name            =   "MS Sans Serif"
  32.          charset         =   0
  33.          weight          =   700
  34.          size            =   8.25
  35.          underline       =   0   'False
  36.          italic          =   0   'False
  37.          strikethrough   =   0   'False
  38.       EndProperty
  39.       Height          =   1185
  40.       Left            =   105
  41.       ScaleHeight     =   1185
  42.       ScaleWidth      =   4425
  43.       TabIndex        =   3
  44.       Top             =   630
  45.       Width           =   4425
  46.       Begin VB.OptionButton opServerAddress 
  47.          Caption         =   "Use Server Address"
  48.          BeginProperty Font 
  49.             name            =   "MS Sans Serif"
  50.             charset         =   0
  51.             weight          =   400
  52.             size            =   8.25
  53.             underline       =   0   'False
  54.             italic          =   0   'False
  55.             strikethrough   =   0   'False
  56.          EndProperty
  57.          Height          =   225
  58.          Left            =   2310
  59.          TabIndex        =   9
  60.          Top             =   855
  61.          Width           =   2115
  62.       End
  63.       Begin VB.OptionButton opServerName 
  64.          Caption         =   "Use Server Name"
  65.          BeginProperty Font 
  66.             name            =   "MS Sans Serif"
  67.             charset         =   0
  68.             weight          =   400
  69.             size            =   8.25
  70.             underline       =   0   'False
  71.             italic          =   0   'False
  72.             strikethrough   =   0   'False
  73.          EndProperty
  74.          Height          =   225
  75.          Left            =   210
  76.          TabIndex        =   8
  77.          Top             =   855
  78.          Value           =   -1  'True
  79.          Width           =   1905
  80.       End
  81.       Begin VB.TextBox txServerAddress 
  82.          BackColor       =   &H00FFFFFF&
  83.          BeginProperty Font 
  84.             name            =   "MS Sans Serif"
  85.             charset         =   0
  86.             weight          =   400
  87.             size            =   8.25
  88.             underline       =   0   'False
  89.             italic          =   0   'False
  90.             strikethrough   =   0   'False
  91.          EndProperty
  92.          Height          =   285
  93.          Left            =   1575
  94.          TabIndex        =   7
  95.          Top             =   450
  96.          Width           =   2745
  97.       End
  98.       Begin VB.TextBox txServerName 
  99.          BackColor       =   &H00FFFFFF&
  100.          BeginProperty Font 
  101.             name            =   "MS Sans Serif"
  102.             charset         =   0
  103.             weight          =   400
  104.             size            =   8.25
  105.             underline       =   0   'False
  106.             italic          =   0   'False
  107.             strikethrough   =   0   'False
  108.          EndProperty
  109.          Height          =   285
  110.          Left            =   1575
  111.          TabIndex        =   6
  112.          Top             =   100
  113.          Width           =   2745
  114.       End
  115.       Begin VB.Label Label2 
  116.          Alignment       =   1  'Right Justify
  117.          Appearance      =   0  'Flat
  118.          BackColor       =   &H00C0C0C0&
  119.          Caption         =   "Server Address :"
  120.          BeginProperty Font 
  121.             name            =   "MS Sans Serif"
  122.             charset         =   0
  123.             weight          =   400
  124.             size            =   8.25
  125.             underline       =   0   'False
  126.             italic          =   0   'False
  127.             strikethrough   =   0   'False
  128.          EndProperty
  129.          ForeColor       =   &H80000008&
  130.          Height          =   225
  131.          Left            =   0
  132.          TabIndex        =   5
  133.          Top             =   450
  134.          Width           =   1485
  135.       End
  136.       Begin VB.Label Label1 
  137.          Alignment       =   1  'Right Justify
  138.          Appearance      =   0  'Flat
  139.          BackColor       =   &H00C0C0C0&
  140.          Caption         =   "Server Name :"
  141.          BeginProperty Font 
  142.             name            =   "MS Sans Serif"
  143.             charset         =   0
  144.             weight          =   400
  145.             size            =   8.25
  146.             underline       =   0   'False
  147.             italic          =   0   'False
  148.             strikethrough   =   0   'False
  149.          EndProperty
  150.          ForeColor       =   &H80000008&
  151.          Height          =   225
  152.          Left            =   0
  153.          TabIndex        =   4
  154.          Top             =   100
  155.          Width           =   1485
  156.       End
  157.    End
  158.    Begin VB.TextBox txStatus 
  159.       BackColor       =   &H00C0C0C0&
  160.       BeginProperty Font 
  161.          name            =   "MS Sans Serif"
  162.          charset         =   0
  163.          weight          =   400
  164.          size            =   8.25
  165.          underline       =   0   'False
  166.          italic          =   0   'False
  167.          strikethrough   =   0   'False
  168.       EndProperty
  169.       Height          =   330
  170.       Left            =   105
  171.       TabIndex        =   14
  172.       Top             =   5355
  173.       Width           =   4320
  174.    End
  175.    Begin VB.CommandButton btnEcho 
  176.       Caption         =   "&Echo"
  177.       BeginProperty Font 
  178.          name            =   "MS Sans Serif"
  179.          charset         =   0
  180.          weight          =   400
  181.          size            =   8.25
  182.          underline       =   0   'False
  183.          italic          =   0   'False
  184.          strikethrough   =   0   'False
  185.       EndProperty
  186.       Height          =   330
  187.       Left            =   180
  188.       TabIndex        =   0
  189.       Top             =   3045
  190.       Width           =   1275
  191.    End
  192.    Begin VB.ListBox lbEcho 
  193.       BackColor       =   &H00C0C0C0&
  194.       BeginProperty Font 
  195.          name            =   "MS Sans Serif"
  196.          charset         =   0
  197.          weight          =   400
  198.          size            =   8.25
  199.          underline       =   0   'False
  200.          italic          =   0   'False
  201.          strikethrough   =   0   'False
  202.       EndProperty
  203.       Height          =   1590
  204.       Left            =   105
  205.       TabIndex        =   1
  206.       Top             =   3675
  207.       Width           =   4320
  208.    End
  209.    Begin VB.TextBox txData 
  210.       BackColor       =   &H00FFFFFF&
  211.       BeginProperty Font 
  212.          name            =   "MS Sans Serif"
  213.          charset         =   0
  214.          weight          =   400
  215.          size            =   8.25
  216.          underline       =   0   'False
  217.          italic          =   0   'False
  218.          strikethrough   =   0   'False
  219.       EndProperty
  220.       Height          =   750
  221.       Left            =   1575
  222.       TabIndex        =   13
  223.       Text            =   "This is a sample of echo data."
  224.       Top             =   2625
  225.       Width           =   2850
  226.    End
  227.    Begin VB.OptionButton opServiceNumber 
  228.       Caption         =   "Use echo Port Number (7)"
  229.       BeginProperty Font 
  230.          name            =   "MS Sans Serif"
  231.          charset         =   0
  232.          weight          =   400
  233.          size            =   8.25
  234.          underline       =   0   'False
  235.          italic          =   0   'False
  236.          strikethrough   =   0   'False
  237.       EndProperty
  238.       Height          =   225
  239.       Left            =   315
  240.       TabIndex        =   11
  241.       Top             =   2300
  242.       Value           =   -1  'True
  243.       Width           =   2535
  244.    End
  245.    Begin VB.OptionButton opServiceName 
  246.       Caption         =   "Use echo Service Name"
  247.       BeginProperty Font 
  248.          name            =   "MS Sans Serif"
  249.          charset         =   0
  250.          weight          =   400
  251.          size            =   8.25
  252.          underline       =   0   'False
  253.          italic          =   0   'False
  254.          strikethrough   =   0   'False
  255.       EndProperty
  256.       Height          =   225
  257.       Left            =   315
  258.       TabIndex        =   10
  259.       Top             =   2000
  260.       Width           =   2535
  261.    End
  262.    Begin dsSocketLib.DSSocket DSSocket1 
  263.       Height          =   420
  264.       Left            =   3240
  265.       TabIndex        =   15
  266.       Top             =   1920
  267.       Width           =   420
  268.       _version        =   65536
  269.       _extentx        =   741
  270.       _extenty        =   741
  271.       _stockprops     =   64
  272.       localport       =   0
  273.       remotehost      =   ""
  274.       remoteport      =   0
  275.       servicename     =   ""
  276.       remotedotaddr   =   ""
  277.       datasize        =   2048
  278.       linger          =   -1  'True
  279.       timeout         =   10
  280.       linemode        =   0   'False
  281.       eolchar         =   10
  282.       bindconnect     =   0   'False
  283.       sockettype      =   1
  284.    End
  285.    Begin VB.Label Label4 
  286.       Appearance      =   0  'Flat
  287.       BackColor       =   &H00C0C0C0&
  288.       Caption         =   "Echo from server :"
  289.       BeginProperty Font 
  290.          name            =   "MS Sans Serif"
  291.          charset         =   0
  292.          weight          =   400
  293.          size            =   8.25
  294.          underline       =   0   'False
  295.          italic          =   0   'False
  296.          strikethrough   =   0   'False
  297.       EndProperty
  298.       ForeColor       =   &H80000008&
  299.       Height          =   225
  300.       Left            =   105
  301.       TabIndex        =   2
  302.       Top             =   3465
  303.       Width           =   1905
  304.    End
  305.    Begin VB.Label Label3 
  306.       Alignment       =   1  'Right Justify
  307.       Appearance      =   0  'Flat
  308.       BackColor       =   &H00C0C0C0&
  309.       Caption         =   "Data to echo :"
  310.       BeginProperty Font 
  311.          name            =   "MS Sans Serif"
  312.          charset         =   0
  313.          weight          =   400
  314.          size            =   8.25
  315.          underline       =   0   'False
  316.          italic          =   0   'False
  317.          strikethrough   =   0   'False
  318.       EndProperty
  319.       ForeColor       =   &H80000008&
  320.       Height          =   225
  321.       Left            =   105
  322.       TabIndex        =   12
  323.       Top             =   2625
  324.       Width           =   1380
  325.    End
  326. Attribute VB_Name = "frmMain"
  327. Attribute VB_Creatable = False
  328. Attribute VB_Exposed = False
  329. Option Explicit
  330. '   Declare the constants used to set the Action property
  331. '   and check the State of the socket
  332. Const SOCK_ACTION_CLOSE = 1
  333. Const SOCK_ACTION_CONNECT = 2
  334. Const SOCK_ACTION_LISTEN = 3
  335. Const SOCK_STATE_CLOSED = 1
  336. Const SOCK_STATE_CONNECTED = 2
  337. Private Sub btnEcho_Click()
  338.     '   Setup to handle errors as they occur
  339.     On Error Resume Next
  340.     '   set to UDP socket type
  341.     DSSocket1.SocketType = 1
  342.     '   If the user selected to use the ServerName, then
  343.     '   set the properties accordingly.  If RemoteDotAddr is
  344.     '   blank, then the control will use the RemoteHost information
  345.     '   to resolve an address.
  346.     If (opServerName) Then
  347.         DSSocket1.RemoteHost = txServerName.Text
  348.         DSSocket1.RemoteDotAddr = ""
  349.     Else
  350.         DSSocket1.RemoteHost = ""
  351.         DSSocket1.RemoteDotAddr = txServerAddress.Text
  352.     End If
  353.     '   If the user selected to use the ServiceName, then
  354.     '   set the properties accordingly.  If RemotePort property is
  355.     '   zero, then the control will use the ServiceName information
  356.     '   to resolve a port number for making the connection.
  357.     If (opServiceName) Then
  358.         DSSocket1.ServiceName = "echo"  ' set service name to "echo"
  359.         DSSocket1.RemotePort = 0
  360.     Else
  361.         DSSocket1.ServiceName = ""
  362.         DSSocket1.RemotePort = 7    ' standard TCP port number for echo
  363.                                     ' as defined in SERVICES file
  364.     End If
  365.     '   If the socket is not already connected, the do a Connect
  366.     If (DSSocket1.State = SOCK_STATE_CLOSED) Then
  367.         
  368.         '   show the status information
  369.         txStatus.Text = "Connecting to server..."
  370.         
  371.         '   issue the connect command
  372.         DSSocket1.Connect
  373.         
  374.         '   if there were any errors establishing the connection
  375.         '   then report them
  376.         If (Err > 0) Then
  377.             MsgBox "Error attempting connect to server." & Chr(13) & Format(Err) & " : " & Error
  378.             txStatus.Text = Error & "..."
  379.             Exit Sub
  380.             End If
  381.     Else
  382.         DSSocket1.Send = txData.Text
  383.         
  384.     End If
  385. End Sub
  386. Private Sub dsSocket1_Connect()
  387.     txStatus.Text = "Connected to server " + txServerName.Text + "..."
  388. End Sub
  389. Private Sub dsSocket1_Receive(ReceiveData As String)
  390.     '
  391.     '   Process data echoed back from server
  392.     '
  393.     On Error Resume Next
  394.     '   Display the data in the listbox
  395.     lbEcho.AddItem DSSocket1.RemoteDotAddr & ":" & ReceiveData
  396.     '   Make the last item the current one
  397.     lbEcho.ListIndex = lbEcho.ListCount - 1
  398.     '   Close the connection.  Normally this wouldn't be done
  399.     '   until we are actually finished with the connection.  We
  400.     '   do it here for demonstration purposes
  401.     DSSocket1.Close
  402.     '   If there were any errors then report them.  The Action property
  403.     '   will return errors in the standard VB error variables
  404.     If (Err > 0) Then
  405.         MsgBox "Error disconnecting from server." & Chr(13) & Format(Err) & " : " & Error
  406.         txStatus.Text = Error & "..."
  407.         Exit Sub
  408.     '   If no errors, just report the status
  409.     Else
  410.         txStatus.Text = "Disconnected from server " + txServerName.Text + "..."
  411.     End If
  412. End Sub
  413. Private Sub dsSocket1_SendReady()
  414.     '   now that the socket is connected, send the data string to be echoed back
  415.     DSSocket1.Send = txData.Text
  416.     '   clear the RemoteDotAddr so we can see it come back in the UDP transfer
  417.     DSSocket1.RemoteDotAddr = ""
  418.     '   if there were any errors establishing the connection
  419.     '   then report them
  420.     If (Err > 0) Then
  421.         MsgBox "Error sending data to server." & Chr(13) & Format(Err) & " : " & Error
  422.         txStatus.Text = Error & "..."
  423.     '   else show the status
  424.     Else
  425.         txStatus.Text = Format(Len(txData.Text)) + " bytes sent to server..."
  426.     End If
  427. End Sub
  428. Private Sub Form_Paint()
  429.     '
  430.     '   This is simply some pretty header code
  431.     '
  432.     '   Setup to do a shadowed text title and copyright notice.
  433.     FontSize = 30
  434.     FontItalic = True
  435.     ForeColor = &H0
  436.     CurrentX = 140
  437.     CurrentY = -50
  438.     Print "Echo"
  439.     ForeColor = &HFF0000
  440.     CurrentX = 110
  441.     CurrentY = -80
  442.     Print "Echo"
  443.     FontSize = 12
  444.     CurrentX = 1800
  445.     CurrentY = 300
  446.     Print Chr(169) & "Dolphin Systems Inc."
  447. End Sub
  448.